1 REM   C64 CHRISTMAS ALBUM
3 REM
4 REM     MUSIC: WAYNE EASTWOOD
5 REM  GRAPHICS: H. REX BOUCHER
6 REM    DESIGN: STEPHEN MURRI
7 REM
9 DATA67,79,77,77,79,68,79,82,69
10 RESTORE:FORJ=38528TO38536:READK:POKEJ,K:NEXT
11 POKE53280,0:POKE53281,0:PRINT""
12 PRINT"[147]THE COMMODORE 64"
13 PRINT"CHRISTMAS DEMO  "
14 PRINT"PRESS ANY KEY TO START"
15 GETI$:IFI$=""THEN15
20 GATE=22632:S1=GATE+16:S2=GATE+6*16+14:I$="":MARK=GATE+3:POKE54296,0
400 SYS50784
510 SYS51976:J=094:K=20:A=00*16^3+12*16^2+15*16+15:GOSUB800:REM GOOD CHRISTIAN
520 SYS52832:J=088:K=25:A=05*16^3+00*16^2+13*16+03:GOSUB800:REM JINGLE BELLS
530 SYS52288:J=120:K=30:A=04*16^3+08*16^2+12*16+10:GOSUB800:REM SILENT NIGHT
540 SYS38912:J=035:K=80:A=04*16^3+01*16^2+05*16+07:GOSUB800:REM RUDOLPH
550 SYS52062:J=129:K=15:A=03*16^3+07*16^2+07*16+15:GOSUB800:REM ANGELS HEARD
560 SYS52496:J=062:K=40:A=01*16^3+07*16^2+06*16+03:GOSUB800:REM FROSTY
590 SYS38144:J=112:K=15:A=08*16^3+07*16^2+13*16+00:GOSUB800:REM SALES PITCH
599 SYS52118:REM END
700 IF PEEK(40959)=1THENCLR:GOTO11
750 CLR:GOTO20
800 POKE54276,0:POKE54283,0:POKE54290,0:POKE54296,10:FORY=0TO500:NEXT
805 POKEGATE+13,A-INT(A/256)*256:POKEGATE+14,A/256
810 GOSUB850:FORY=0TOJ*2:NEXTY:RETURN
850 POKEGATE,0:POKEGATE+1,0:POKEGATE+2,0
860 SYS(S1):FORY=1TOJ:NEXT:IFK>0THENSYS(S2):FORY=1TOK:NEXT:SYS51973
870 IFPEEK(MARK)=0THEN860
880 RETURN